home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
coreaids.arc
/
SCRN_RST.ASM
< prev
next >
Wrap
Assembly Source File
|
1987-06-25
|
780b
|
39 lines
; DESC: Restores 16K screen to video memory V1.00
; SAMPLE: SCRN_RST
; ##################################################################
SCREEND Segment Para Common 'DATA'
DB 16384 DUP(0)
SCREEND Ends
Extrn PUSHALL:Near
Extrn POPALL:Near
Extrn SCRN_TYP:Near
Extrn MOVE_BYT:Near
SCRN_RSC Segment
Assume CS:SCRN_RSC,DS:SCREEND
Public SCRN_RST
Include CALLM.MAC
;notice.
DB 'SCRN_RST - V1.00, Copyright 1987, CoreTechs ',0DH,0AH
SCRN_RST Proc Near ;restores old screen.
Call PUSHALL
Call SCRN_TYP ;determine if color or b&w.
Pop ES
Mov BX,SCREEND ;setup workarea.
Mov DS,BX
Callm MOVE_BYT,<SCREEND,0,ES,0,16384>,;recover video screen.
Call POPALL
Ret
SCRN_RST Endp
SCRN_RSC Ends
End